home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / util1 / jukebx21.lha / JukeBox_2.1 / status.jb < prev    next >
Text File  |  1993-01-29  |  436b  |  22 lines
  1. /* display current playing status */
  2. /* (c) copyright 1992,93 by F.J. Reichert */
  3.  
  4. options results;
  5. inquiry;
  6. say substr(result,9,27);
  7. current status;
  8. play = 'status is "'||result||'",'
  9. current track;
  10. play = play 'track #'||result
  11. current index;
  12. play = play 'index' result
  13. current reltime;
  14. rel = result;
  15. play = play 'since' result
  16. current trktime;
  17. abs = result;
  18. subtime abs rel
  19. rem = result;
  20. say play||', remaining' rem 'of' abs
  21. exit 0;
  22.